perm filename MODD.F4[XX,LCS] blob sn#217045 filedate 1976-05-22 generic text, type T, neo UTF8
00100	2	ACCEPT 1,A
00200	1 	FORMAT(F)
00300	3	X=AMOD(A,100.0)
00400	4	TYPE 1,X
00500	5	GO TO 2
00600		END